Sub ǰб() ' Column Ӣ
    Dim ColLetter As String  'ǰб
    Dim ColNumber  As Long  'ǰк
    ColNumber = ActiveCell.Column 'ǰк
    ColLetter = Left(Cells(1, ColNumber).Address(0, 0), 1 - (ColNumber > 26))
    MsgBox ColLetter ' Column Ӣ
End Sub
